0 REM SAVE"@:[194]ZIEL VERFEHLT![194]",12
1 LW=PEEK(186):IFZ=0THENZ=1:GOTO4
2 IFZ=1THENZ=2:GOTO10
3 IFZ=2THENZ=3:SYS49152:GOTO19
4 FORA=49154TO49317:READI:POKEA,I:NEXT:
5 LOAD"[194] Z1*",LW,1:END
6 :
7 LOAD"[194] Z2*",LW,1
8 END
10 W=170:POKE53280,0:POKE53281,0:GOSUB900:P=0
11 FORZA=2TO7:POKE53334,ZA:GOSUB20:NEXT
12 FORZA=7TO2STEP-1:POKE53334,ZA:GOSUB20:NEXT:IFZD<9THENGOTO11
13 FORZA=1TO9:POKE53280,F(ZA):POKE53281,F(ZA):NEXT:POKE53280,0:POKE53281,0
14 POKEV+21,0:POKE53265,11:PRINT"[147]":POKE53265,27:FORZB=0TO10
15 FORZA=2TO7:POKE53334,ZA:NEXT
16 FORZA=7TO2STEP-1:POKE53334,ZA:NEXT:NEXT:POKE54278,15:POKE53334,200
17 SYS49154
18 LOAD"[194] Z2*",LW,1
19 FORZA=0TO76000:NEXTZA:POKE53265,11:SYS64738
20 GOSUB530:PRINT"";:FORZE=0TOZD:PRINT"":NEXT
21 PRINTTAB(20-LEN(A$(ZD))/2);MID$(A$(ZD),1,ZC);:IFR=>9THENR=0:POKEV+21,255
22 ZC=ZC+1:IFZC=LEN(A$(ZD))+1THENZD=ZD+1:ZC=0
23 POKEV+41,F(R):R=R+1:P=P+1:IFP=2THENP=0:GOSUB25
24 RETURN
25 ZF=ZF+0.1:POKEV+4,W+(80*SIN(2*ZF)):RETURN
255 GOSUB530:IFZC=LEN(A$(ZD))+1THENZD=ZD+1:ZC=0
520 :
530 POKE54287,F2
540 F1=F1+0.5
550 POKE54273,F1:F2=F2+.01:RETURN
900 PRINT"[144][147]";:POKE53280,0:POKE53281,0:POKE53265,11
901 PRINT"             ZIEL VERFEHLT !"
902 PRINT"             [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
903 PRINT"[155]            HONEY & SORAYA.VC"
904 PRINT"[155]               2. MAI 2OO3"
905 PRINT"[155]        VON DER  [158]MAIL [154]MADNESS [150]#5"  
910 POKE53265,27
1000 FORA=49154TO49317:READI:NEXT:
1001 V=53248:POKEV+21,0:POKE2042,14:POKE2043,13:POKE2044,13:POKEV+27,41
1002 POKE2045,13:POKE2046,13:POKE2047,13:POKE2041,13:POKE2040,13
1003 FORN=0TO62:READQ:POKE832+N,Q:NEXT
1004 FORN=0TO62:READQ:POKE896+N,Q:NEXT
1012 POKEV+0,W:POKEV+1,50
1013 POKEV+2,W:POKEV+3,91
1014 POKEV+6,W:POKEV+7,133:POKEV+5,150
1015 POKEV+8,W:POKEV+9,175:POKEV+39,6:POKEV+40,5:POKEV+42,6:POKEV+43,5
1016 POKEV+10,W:POKEV+11,217:POKEV+44,6
1017 POKEV+12,0:POKEV+13,0:POKEV+14,0:POKEV+15,0:POKEV+23,59
1020 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,6
1021 POKE54277,8:POKE54278,255:POKE54276,23:F2=4
1101 A$(0)="HALLO,HIER SPRICHT WELLE:ERDBALL !"
1102 A$(1)="AUF EINEM ANDEREN STERN IN DER"
1103 A$(2)="NEUEN WELT HAT MAN UNSER SIGNAL"
1104 A$(3)="EMPFANGEN.WIR WURDEN ALS ZIEL"
1105 A$(4)="ERFASST.MAN SCHOSS EINE RAKETE"
1106 A$(5)="AUF UNSEREN PLANETEN MIT DER"
1107 A$(6)="FRACHT,DIE WIR AM"
1108 A$(7)="MEISTEN BRAUCHEN."
1109 A$(8)="DOCH LEIDER WURDE DAS... "
1120 FORZA=0TO30:PRINT:NEXT:PRINT"[144][147]";:
1121 F(1)=11:F(2)=12:F(3)=15:F(4)=8:F(5)=1:F(6)=8:F(7)=15:F(8)=12:F(9)=11
1122 FORZA=1TO9:POKE53280,F(ZA):POKE53281,F(ZA):NEXT:POKEV+21,59
1123 POKE53280,0:POKE53281,0:FORZA=0TO500:NEXT
1200 RETURN
1300 REM DATAS
1301 DATA173,17,208,41,239,141,17,208,162,127,160,64,32,156,192,162
1302 DATA4,160,0,32,161,192,162,131,160,39,32,114,192,162,131,160
1303 DATA40,32,156,192,162,216,160,0,32,161,192,162,135,160,15,32
1304 DATA114,192,173,16,135,141,33,208,173,17,208,9,34,141,17,208
1305 DATA173,22,208,41,223,9,16,141,22,208,173,24,208,9,8,141
1306 DATA24,208,162,96,160,0,32,156,192,162,32,160,0,32,161,192
1307 DATA162,127,160,63,32,114,192,173,17,208,9,16,141,17,208,96
1308 DATA142,1,192,140,0,192,160,0,177,251,145,253,165,252,205,1
1309 DATA192,208,8,165,251,205,0,192,208,1,96,230,251,208,2,230
1310 DATA252,230,253,208,227,230,254,76,122,192,134,252,132,251,96,134
1311 DATA254,132,253,96
2000 REM SPRITE
2001 DATA128,0,0,64,0,0,60,0,0,3,240,0,0,15,128
2002 DATA0,0,112,0,0,12,0,0,2,0,0,2,0,0,1,0
2003 DATA0,1,0,0,1,0,0,2,0,0,2,0,0,12,0,0
2004 DATA112,0,15,128,3,240,0,60,0,0,64,0,0,128,0,0
2011 DATA0,16,0,0,16,0,0,56,0,0,56,0,0,124,0
2012 DATA31,255,240,7,255,192,1,255,0,0,254,0,1,239,0,3
2013 DATA199,128,7,1,192,12,0,96,0,0,0,0,0,0,0,0
2014 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
10000 GETA$:IFA$=""THENGOTO10000
10001 POKE53248+21,ZA:ZA=ZA+1:GOTO10000